0 POKE646,1:POKE53281,0:POKE53280,0
1 REM ==================================
2 REM    COMMODARES PROBLEM #36-2 :
3 REM    ANIMATED EXPANSION
4 REM    SOLUTION BY
5 REM    BING PERRY
6 REM ==================================
10 INPUT"[147]ENTER NUMBER OF SPACES";S
20 INPUT"ENTER WORD";A$ : L=LEN(A$)
30 PRINT "[147]"A$ : GOSUB 100 : FOR K=1 TO L-1
40 FOR J=1 TO S : A$=LEFT$(A$,(K-1)*(S+1)+J)+"."+RIGHT$(A$,L-K):PRINT""+A$
50 GOSUB 100 : NEXT : NEXT
60 FOR K=L-1 TO 1 STEP -1
70 FOR J=S TO 1 STEP -1 : A$=LEFT$(A$,(K-1)*(S+1)+J)+RIGHT$(A$,L-K)
80 PRINT""+A$+" ":GOSUB 100 :NEXT :NEXT
90 END
100 FOR T=1 TO 20 : NEXT : RETURN